inherited frmPedido: TfrmPedido
  Left = 516
  Top = 159
  Width = 1035
  Height = 576
  Caption = 'Pedido'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 497
    Width = 1019
    Height = 41
  end
  inherited tbrBotoes: TsToolBar
    Width = 1019
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 1019
    Height = 432
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object pnlPincipal: TsPanel
        Left = 0
        Top = 0
        Width = 1019
        Height = 432
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object pnlCabecaPedido: TsPanel
          Left = 1
          Top = 1
          Width = 1017
          Height = 41
          Align = alTop
          TabOrder = 0
          SkinData.SkinSection = 'PANEL'
          object sLabel1: TsLabel
            Left = 8
            Top = 16
            Width = 36
            Height = 13
            Caption = 'Pedido:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel2: TsLabel
            Left = 112
            Top = 16
            Width = 75
            Height = 13
            Caption = 'Tipo do Pedido:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel3: TsLabel
            Left = 296
            Top = 16
            Width = 84
            Height = 13
            Caption = 'Status do Pedido:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel4: TsLabel
            Left = 499
            Top = 16
            Width = 88
            Height = 13
            Caption = 'Data Hora Pedido:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel16: TsLabel
            Left = 728
            Top = 15
            Width = 84
            Height = 13
            Caption = 'Previs'#227'o Entrega:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedNroPedido: TsCurrencyEdit
            Left = 48
            Top = 12
            Width = 57
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object edtTipoPdido: TsEdit
            Left = 192
            Top = 12
            Width = 97
            Height = 21
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            SkinData.SkinSection = 'EDIT'
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
          end
          object edtStatusPedido: TsEdit
            Left = 384
            Top = 12
            Width = 105
            Height = 21
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            SkinData.SkinSection = 'EDIT'
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
          end
          object edtDataHoraPedido: TsEdit
            Left = 595
            Top = 12
            Width = 121
            Height = 21
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            SkinData.SkinSection = 'EDIT'
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
          end
          object dedPrevisaoEntrega: TsDateEdit
            Left = 821
            Top = 11
            Width = 92
            Height = 21
            AutoSize = False
            Color = clWhite
            EditMask = '!99/99/9999;1; '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 10
            ParentFont = False
            TabOrder = 4
            Text = '  /  /    '
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
          end
        end
        object sPanel1: TsPanel
          Left = 1
          Top = 42
          Width = 1017
          Height = 71
          Align = alTop
          TabOrder = 1
          SkinData.SkinSection = 'PANEL'
          object sLabel5: TsLabel
            Left = 6
            Top = 15
            Width = 49
            Height = 13
            Caption = 'Vendedor:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel6: TsLabel
            Left = 6
            Top = 39
            Width = 35
            Height = 13
            Caption = 'Cliente:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedCodVendedor: TsCurrencyEdit
            Left = 59
            Top = 11
            Width = 68
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnExit = cedCodVendedorExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object dblVendedor: TsDBLookupComboBox
            Left = 128
            Top = 11
            Width = 785
            Height = 21
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'CODIGO_EMITENTE'
            ListField = 'RAZAO_SOCIAL'
            ListSource = dtsVendedor
            ParentFont = False
            TabOrder = 1
            OnCloseUp = dblVendedorCloseUp
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
          end
          object cedCodCliente: TsCurrencyEdit
            Left = 59
            Top = 35
            Width = 68
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnExit = cedCodClienteExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object dblCliente: TsDBLookupComboBox
            Left = 128
            Top = 35
            Width = 785
            Height = 21
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'CODIGO_EMITENTE_CLIENTE'
            ListField = 'RAZAO_SOCIAL_CLIENTE'
            ListSource = dtsCliente
            ParentFont = False
            TabOrder = 3
            OnCloseUp = dblClienteCloseUp
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
          end
        end
        object sPanel2: TsPanel
          Left = 1
          Top = 322
          Width = 1017
          Height = 109
          Align = alBottom
          TabOrder = 2
          SkinData.SkinSection = 'PANEL'
          object sLabel11: TsLabel
            Left = 8
            Top = 16
            Width = 150
            Height = 13
            Caption = 'Quantidade Total dos Produtos:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel12: TsLabel
            Left = 8
            Top = 40
            Width = 119
            Height = 13
            Caption = 'Peso Total dos Produtos:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel13: TsLabel
            Left = 8
            Top = 64
            Width = 119
            Height = 13
            Caption = 'Valor Total dos Produtos:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel14: TsLabel
            Left = 8
            Top = 88
            Width = 54
            Height = 13
            Caption = 'Valor Frete:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel15: TsLabel
            Left = 632
            Top = 48
            Width = 187
            Height = 24
            Caption = 'Valor Total do Pedido:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -19
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel17: TsLabel
            Left = 253
            Top = 15
            Width = 49
            Height = 13
            Caption = 'Desconto:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel18: TsLabel
            Left = 253
            Top = 39
            Width = 52
            Height = 13
            Caption = 'Acr'#233'scimo:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedQtdTotalPedido: TsCurrencyEdit
            Left = 160
            Top = 11
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            DisabledKind = []
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 0
            DisplayFormat = '#########0'
          end
          object cedPesoTotalPedido: TsCurrencyEdit
            Left = 160
            Top = 35
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            DisabledKind = []
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 3
            DisplayFormat = '###,##0.000'
          end
          object cedValorTotalProdutosPedido: TsCurrencyEdit
            Left = 160
            Top = 59
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 2
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            DisabledKind = []
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = 'R$ ###,###,##0.00;'
          end
          object cedValorFretePedido: TsCurrencyEdit
            Left = 160
            Top = 83
            Width = 80
            Height = 21
            AutoSize = False
            Color = clYellow
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnExit = cedValorFretePedidoExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.CustomColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = 'R$ ###,###,##0.00;'
          end
          object cedValorTotalPedido: TsCurrencyEdit
            Left = 848
            Top = 45
            Width = 145
            Height = 30
            AutoSize = False
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -19
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 6
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            DisabledKind = []
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = 'R$ ###,###,##0.00;'
          end
          object cedPercDescontoPedido: TsCurrencyEdit
            Left = 309
            Top = 11
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
            OnExit = cedPercDescontoPedidoExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = '##0.00 %'
          end
          object cedVlDescontoPedido: TsCurrencyEdit
            Left = 397
            Top = 11
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 7
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = 'R$ ###,###,##0.00; -R$ ###,###,##0.00'
          end
          object cedPercAcrescimoPedido: TsCurrencyEdit
            Left = 309
            Top = 35
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 5
            OnExit = cedPercAcrescimoPedidoExit
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = '##0.00 %'
          end
          object cedVlAcrescimoPedido: TsCurrencyEdit
            Left = 397
            Top = 35
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 8
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = 'R$ ###,###,##0.00; -R$ ###,###,##0.00'
          end
        end
        object pnlItensPedido: TsPanel
          Left = 1
          Top = 113
          Width = 1017
          Height = 209
          Align = alClient
          TabOrder = 3
          SkinData.SkinSection = 'PANEL'
          object pgncItens: TsPageControl
            Left = 1
            Top = 1
            Width = 1015
            Height = 207
            ActivePage = sTabSheet1
            Align = alClient
            TabOrder = 0
            SkinData.SkinSection = 'PAGECONTROL'
            object sTabSheet1: TsTabSheet
              Caption = 'Itens do Pedido'
              SkinData.CustomColor = False
              SkinData.CustomFont = False
              object dbgProdutosPedido: TRxDBGrid
                Left = 0
                Top = 0
                Width = 1007
                Height = 179
                Align = alClient
                DataSource = dtsProdutosPedido
                TabOrder = 0
                TitleFont.Charset = DEFAULT_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -11
                TitleFont.Name = 'MS Sans Serif'
                TitleFont.Style = []
                OnDrawColumnCell = dbgProdutosPedidoDrawColumnCell
                Columns = <
                  item
                    Expanded = False
                    FieldName = 'CODIGO_PRODUTO'
                    ReadOnly = True
                    Title.Caption = 'C'#243'd. Produto'
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'CLASSIFICACAO'
                    ReadOnly = True
                    Title.Caption = 'Class.'
                    Width = 75
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'DESCRICAO_PRODUTO'
                    ReadOnly = True
                    Title.Caption = 'Produto'
                    Width = 290
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'QTD'
                    Title.Caption = 'Quantidade'
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'VALOR_VENDA'
                    ReadOnly = True
                    Title.Caption = 'R$ Unit'#225'rio'
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'VALOR_TOTAL_LIQUIDO'
                    ReadOnly = True
                    Title.Caption = 'R$ Total L'#237'quido'
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'PESO'
                    ReadOnly = True
                    Title.Caption = 'Peso'
                    Visible = True
                  end>
              end
            end
            object sTabSheet2: TsTabSheet
              Caption = 'Trocas'
              SkinData.CustomColor = False
              SkinData.CustomFont = False
            end
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 696
    Top = 8
  end
  object qryVendedor: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT A.CODIGO_EMITENTE,'
      '       A.RAZAO_SOCIAL'
      'FROM EMITENTE A'
      'WHERE A.VENDEDOR_SN = '#39'S'#39
      '      AND A.ATIVO_SN = '#39'S'#39
      'ORDER BY RAZAO_SOCIAL')
    Left = 801
    Top = 107
    object qryVendedorCODIGO_EMITENTE: TAutoIncField
      FieldName = 'CODIGO_EMITENTE'
      ReadOnly = True
    end
    object qryVendedorRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
  end
  object dtsVendedor: TDataSource
    DataSet = qryVendedor
    Left = 777
    Top = 107
  end
  object qryCliente: TADOQuery
    Connection = frmPrincipal.cnn
    DataSource = dtsVendedor
    Parameters = <
      item
        Name = 'CODIGO_EMITENTE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT'
      'EMC.CODIGO_EMITENTE CODIGO_EMITENTE_CLIENTE,'
      'EMC.RAZAO_SOCIAL RAZAO_SOCIAL_CLIENTE,'
      '       CIC.NOME_CIDADE  NOME_CIDADE,'
      #9#9#9' EMV.RAZAO_SOCIAL RAZAO_SOCIAL_VENDEDOR,'
      #9#9#9' REG.NOME_REGIAO  NOME_REGIAO'
      'FROM VENDEDORES_REGIOES VRE,'
      '     REGIOES_CIDADES REC,'
      '     EMITENTE EMC,'
      '     CIDADE CIC,'
      #9#9' EMITENTE EMV,'
      #9#9' REGIAO REG'
      'WHERE REC.CODIGO_REGIAO = VRE.CODIGO_REGIAO'
      '      AND EMC.CODIGO_CIDADE = REC.CODIGO_CIDADE'
      '      AND EMC.ATIVO_SN = '#39'S'#39
      '      AND CIC.CODIGO_CIDADE = REC.CODIGO_CIDADE'
      #9#9#9'AND EMV.CODIGO_EMITENTE = VRE.CODIGO_EMITENTE'
      #9#9#9'AND REG.CODIGO_REGIAO = REC.CODIGO_REGIAO'
      '      AND EMV.CODIGO_EMITENTE = :CODIGO_EMITENTE'
      'ORDER BY EMC.RAZAO_SOCIAL')
    Left = 625
    Top = 123
    object qryClienteCODIGO_EMITENTE_CLIENTE: TAutoIncField
      FieldName = 'CODIGO_EMITENTE_CLIENTE'
      ReadOnly = True
    end
    object qryClienteRAZAO_SOCIAL_CLIENTE: TStringField
      FieldName = 'RAZAO_SOCIAL_CLIENTE'
      Size = 300
    end
    object qryClienteNOME_CIDADE: TStringField
      FieldName = 'NOME_CIDADE'
      Size = 300
    end
    object qryClienteRAZAO_SOCIAL_VENDEDOR: TStringField
      FieldName = 'RAZAO_SOCIAL_VENDEDOR'
      Size = 300
    end
    object qryClienteNOME_REGIAO: TStringField
      FieldName = 'NOME_REGIAO'
      Size = 50
    end
  end
  object dtsCliente: TDataSource
    DataSet = qryCliente
    Left = 697
    Top = 115
  end
  object rxItensPedido: TRxMemoryData
    FieldDefs = <>
    BeforeEdit = rxItensPedidoBeforeEdit
    BeforePost = rxItensPedidoBeforePost
    AfterPost = rxItensPedidoAfterPost
    Left = 681
    Top = 298
    object rxItensPedidoCODIGO_PEDIDO_ITEM: TIntegerField
      FieldName = 'CODIGO_PEDIDO_ITEM'
    end
    object rxItensPedidoCODIGO_PEDIDO: TIntegerField
      FieldName = 'CODIGO_PEDIDO'
    end
    object rxItensPedidoCODIGO_PRODUTO: TIntegerField
      FieldName = 'CODIGO_PRODUTO'
    end
    object rxItensPedidoQTD: TFloatField
      FieldName = 'QTD'
      OnValidate = rxItensPedidoQTDValidate
    end
    object rxItensPedidoVALOR_TOTAL_BRUTO: TFloatField
      FieldName = 'VALOR_TOTAL_BRUTO'
      DisplayFormat = 'R$ #,###,##0.00'
    end
    object rxItensPedidoPERC_DESCONTO: TFloatField
      FieldName = 'PERC_DESCONTO'
    end
    object rxItensPedidoVALOR_DESCONTO: TFloatField
      FieldName = 'VALOR_DESCONTO'
      DisplayFormat = 'R$ #,###,##0.00'
    end
    object rxItensPedidoPERC_ACRESCIMO: TFloatField
      FieldName = 'PERC_ACRESCIMO'
    end
    object rxItensPedidoVALOR_ACRESCIMO: TFloatField
      FieldName = 'VALOR_ACRESCIMO'
      DisplayFormat = 'R$ #,###,##0.00'
    end
    object rxItensPedidoVALOR_TOTAL_LIQUIDO: TFloatField
      FieldName = 'VALOR_TOTAL_LIQUIDO'
      DisplayFormat = 'R$ #,###,##0.00'
    end
    object rxItensPedidoPESO: TFloatField
      DefaultExpression = '#,###,##0.000'
      FieldName = 'PESO'
    end
    object rxItensPedidoLOGIN: TStringField
      FieldName = 'LOGIN'
    end
    object rxItensPedidoDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
    object rxItensPedidoVALOR_VENDA: TFloatField
      FieldName = 'VALOR_VENDA'
      DisplayFormat = 'R$ #,###,##0.00'
    end
    object rxItensPedidoORDEM: TIntegerField
      FieldName = 'ORDEM'
    end
    object rxItensPedidoCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      Size = 50
    end
    object rxItensPedidoERRO_TB_COMISSAO: TStringField
      FieldName = 'ERRO_TB_COMISSAO'
      Size = 1
    end
  end
  object dtsProdutosPedido: TDataSource
    DataSet = rxItensPedido
    Left = 761
    Top = 298
  end
  object qryProdutos: TADOQuery
    Connection = frmPrincipal.cnn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM PRODUTO'
      ''
      'WHERE ATIVO_SN = '#39'S'#39
      ''
      'ORDER BY ORDEM')
    Left = 370
    Top = 315
    object qryProdutosCODIGO_PRODUTO: TAutoIncField
      FieldName = 'CODIGO_PRODUTO'
      ReadOnly = True
    end
    object qryProdutosDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
    object qryProdutosSIGLA_PRODUTO: TStringField
      FieldName = 'SIGLA_PRODUTO'
      Size = 5
    end
    object qryProdutosVALOR_COMPRA: TFloatField
      FieldName = 'VALOR_COMPRA'
    end
    object qryProdutosVALOR_VENDA: TFloatField
      FieldName = 'VALOR_VENDA'
    end
    object qryProdutosCODIGO_UNIDADE: TIntegerField
      FieldName = 'CODIGO_UNIDADE'
    end
    object qryProdutosATIVO_SN: TStringField
      FieldName = 'ATIVO_SN'
    end
    object qryProdutosLOGIN: TStringField
      FieldName = 'LOGIN'
      Size = 50
    end
    object qryProdutosCODIGO_AUXILIAR: TStringField
      FieldName = 'CODIGO_AUXILIAR'
      Size = 50
    end
    object qryProdutosEAN13: TStringField
      FieldName = 'EAN13'
      Size = 13
    end
    object qryProdutosPESO: TFloatField
      FieldName = 'PESO'
    end
    object qryProdutosICMS: TFloatField
      FieldName = 'ICMS'
    end
    object qryProdutosIPI: TFloatField
      FieldName = 'IPI'
    end
    object qryProdutosPIS: TFloatField
      FieldName = 'PIS'
    end
    object qryProdutosCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object qryProdutosICMS_ST: TFloatField
      FieldName = 'ICMS_ST'
    end
    object qryProdutosCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      Size = 50
    end
    object qryProdutosORDEM: TIntegerField
      FieldName = 'ORDEM'
    end
  end
  object dtsProdutos: TDataSource
    DataSet = qryProdutos
    Left = 450
    Top = 315
  end
  object qryUltimoPedido: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'select IDENT_CURRENT('#39'PEDIDO'#39') CODIGO_PEDIDO')
    Left = 321
    Top = 465
    object bcdfldUltimoPedidoCODIGO_PEDIDO: TBCDField
      FieldName = 'CODIGO_PEDIDO'
      ReadOnly = True
      Precision = 32
      Size = 0
    end
  end
  object qryIncluirPedido: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'TIPO_PEDIDO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'DATA_PEDIDO'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'DATA_PREVISAO_ENTREGA'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'STATUS_PEDIDO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_CLIENTE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE_VENDEDOR'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'VALOR_TOTAL_BRUTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_TOTAL_LIQUIDO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PESO_TOTAL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PERC_DESCONTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_DESCONTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PERC_ACRESCIMO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_ACRESCIMO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_FRETE'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PERC_COMISSAO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_COMISSAO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CODIGO_COMISSAO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'LOGIN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO PEDIDO'
      '('
      '    TIPO_PEDIDO,'
      '    DATA_PEDIDO,'
      '    DATA_PREVISAO_ENTREGA,'
      '    STATUS_PEDIDO,'
      '    CODIGO_EMITENTE_CLIENTE,'
      '    CODIGO_EMITENTE_VENDEDOR,'
      '    VALOR_TOTAL_BRUTO,'
      '    VALOR_TOTAL_LIQUIDO,'
      '    PESO_TOTAL,'
      '    PERC_DESCONTO,'
      '    VALOR_DESCONTO,'
      '    PERC_ACRESCIMO,'
      '    VALOR_ACRESCIMO,'
      '    VALOR_FRETE,'
      '    PERC_COMISSAO,'
      '    VALOR_COMISSAO,'
      '    CODIGO_COMISSAO,'
      '    LOGIN'
      ')'
      'VALUES (:TIPO_PEDIDO,'
      '        :DATA_PEDIDO,'
      '        :DATA_PREVISAO_ENTREGA,'
      '        :STATUS_PEDIDO,'
      '        :CODIGO_EMITENTE_CLIENTE,'
      '        :CODIGO_EMITENTE_VENDEDOR,'
      '        :VALOR_TOTAL_BRUTO,'
      '        :VALOR_TOTAL_LIQUIDO,'
      '        :PESO_TOTAL,'
      '        :PERC_DESCONTO,'
      '        :VALOR_DESCONTO,'
      '        :PERC_ACRESCIMO,'
      '        :VALOR_ACRESCIMO,'
      '        :VALOR_FRETE,'
      '        :PERC_COMISSAO,'
      '        :VALOR_COMISSAO,'
      '        :CODIGO_COMISSAO,'
      '        :LOGIN)'
      ' '
      ' ')
    Left = 441
    Top = 473
  end
  object qryIncluirPedidoItens: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    Left = 545
    Top = 423
  end
end
